home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS12.ADF / fixTextcraft.msb (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-30  |  206b  |  14 lines
  1.  
  2. OPEN "r", #1, "diska", 1
  3. OPEN "o", #2, "ram:out"
  4.  
  5. FIELD #1, 1 AS A$
  6.  
  7.  10 GET #1
  8.   IF EOF(1) THEN CLOSE 2 : STOP
  9.   PRINT #2, A$;
  10.   x = x+1
  11.   IF x > 75 THEN PRINT #2, "" : x = 0
  12.   GOTO 10
  13.   
  14.